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3 1 001 MODULE ERF SUMMARY 

3 ¢ Oe (ZTITLE 'S ary dispatcher’ 

3 00 IDENT = ‘V04-000") = 

3 4 04 

; 5 05S 1 BEGIN 

; § $ 1 

; 007 1! 

5 : 94 ; Ve ReeeeeA RA RAAAAAAAAEAAEREREEAEE ATER ERATE AAA EES 
$ ‘e@ & 
; WW $010 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
se 11. 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \¢ \¢ : is ALL RIGHTS RESERVED. * 
; ; * 
3; % 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
5 1 Bote 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 1 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY a 
: 18 g018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WEREBY * 
: i 84 : :* TRANSFERRED. * 
4 ‘® * 
; 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Z 88 Z } :* CORPORATION. * 
3 ‘® ® 
; $2 0095 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 6 6 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
wie 4 0027 1 !« * 
; 8 0028 1 !* * 
: 9 ot 34 LF eee eee eee eR AAAAEAAAAA AERA AREER AAA A AAA AAA AA AAAAAAAAAAERAEEAERE EE 
; 0 0030 1 

3 1 0031 1 !++¢ 

3 2 O86 1 ! FACILITY: ERF, Error Log Report Generator 

3 3 0033 1! 

3 34 0034 1 ! ABSTRACT: 

a: 0035 1! 

: <6 43 ; : This module handles the update and output of summary information. 

; 3s 0038 1 ! ENVIRONMENT: 

; 9 0039 1! 

3 29 re ! : VAX/VMS operating system, user mode. 

; $¢ Boe§ 1 ! AUTHOR: Sharon Reynolds, CREATION DATE: 12-Apr-1983 

:; «4 0045 1! 

; re} rf} : Modified by: 

; 646 B068 & v03-003 EAD0141 Elliott A. Drayton 12-Apr-1984 

; rtf O04 ! } Removed reference to EMBETDEF .REQ. 

; = «649 ks 1! v03-002 SARO192 Sharon A. Reynolds 15-Feb-1984 

; 20 0081 ‘ Removed references to parserdat. 

3 2§ 03g 1! v03-001 JMG0003 Joel M. Gringorten 29-Dec-1983 

; > 55 1! Added dispatch clauses for histogram support. 

: ee 54 1! - output 

3 5 5§ 1! - update 

3; 2$ 1! 

oo. ae 57 1 !<- 
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Require ' ‘src :erfdef.req’ ; ' ER 
Require ‘src :recseldef. req’ s : $V 
' 
i 
' 
f 


' Table of contents 


orward routine 
Summary dispatcher: NOVALUE ; 


External routine 
Display_rollup, 
Entry_summary_output, 
rar y-o gps “update, 
honors displ 

emory_ Sp ay. 
Rollup, 


Processed entries_histo_update, 
Processed_entries_histo_output ; 


Own 

fone emb: PSECT (EMB), 

Emb_Buf: Initial (temp_emb) 
REF $BBLOCK, 

Temp_syecom: PSECT (SYECOM), 

Syecom_buf: TO SBS: sens. Syecom) 

Name_desc: $BBLOCK Cases. d_ bln] 
Preset (Cdsc$b_class] = 


ad 


RE SRCSERF SUMM. B32; 479 


dsc$k_class_d) ; 


he ARY Summary dispatcher 1$-se -Sep-1984 t 93:38:93 


VAX-11 Bliss-32 V ee 
14-Sep-1984 DISKSVMSMASTER: tte Osae ERFSUMM.B32; 429 "2 


Global Routine SUMMARY_DISPATCHER (Lstlun, function): NOVALUE = 


wm 


S283 


Lstlun = contains the address of the output logical unit number. 
Function = contains the address of the function code. 
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None 
Selec tone .- function of 
Histo_summ_upd): 
Begin 


i ; Update the histogram summary information (count of selected entries). 
PROCESSED. ENTRIES_HISTO_UPDATE () ; 
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7 Bie the entry summary information (count of all entries). 
ENTRY_ SUMMARY _UPDATE repeees, s-fula valid_cpul, 
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sye$b_valid_entry), 
sye$b_valid_ ee) 
sye$b_valid_type]) 


syecom_bu 

syecom_buf 

syecom_buf 
End ; 


(Dev — upd): 
egin 


WR — 0 O@UNAUS UN — O OOVNOUSWN OO 


Ww 
w 


rae 


or a ‘device attention’ oaae and call the Summary update 
routine, passing the appropriate EMB fields. 


Be 
7 Ensure that this is either a ‘device error’, ‘device timeout’, 
i 
i 
if fom. buflemb$w_hd_entry] EQLU EMBSC_DE) OR 
EQLU EMB$C_DT) 


emb$w_hd_entry, 
EQLU EMBS$C_DA)) 


emb$w_hd_entry 


(.emb_ _buf 
(.emb_ buf 
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1 
1 
Begin 
‘os 
7 Functional Description: 
i 
Calling Sequence: 
Summary _dispatcher (lstlun, function) 
Input Parameters: 
i 
i 
i 
Output Parameters: 
i 
4 
4 
4 
3 
4 
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Begin 
Nene descldsc$e_pointer) = emb_bufLemb$t_dv_name] + 1 ; 
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ROLLUP (emb_buflemb$t_dv_name] ,name_desc, 
emb_buflLemb$w_dv_unit)],emb Buflemb$q_dv_iosb], 


i Ensure this is bog message’ —- and call the summary update 
} routine, passing the appropriate EMB fields. 


it (.emb_bufiemb$w_hd_entry] EQLU EMBSC_LM) 
en 


rf: End emb_buf emb$\—dv-opcnti,emb_buf emb$w_dv_errcnt]) ; 

4] Else 

? Begin 

508 i Ensure that this is a ‘Log status’ entry and call the 
B29 summary update routine, passing the appropriate EMB fields. 
Me if (,emb_buflemb$w_hd_entry] EQLU EMBS$C_SP) 

7 Then 

574 Begin 
Bat? Name_desc(dsc$a_pointer] = emb_buflemb$t_sp_devnam] + 1 ; 
bap ROLLUP (emb_bufCemb$t_sp_devnam], 
0578 name desc, 

579 emb_BufCemb$w_sp_unit],ZREF(-1), 

280 emb_buf emb$\"sp_opcntd 

581 emb_buf emb$w_sp_errcntd) ; 

28¢ End ; 

$ End ; 

4 

i 

88 

89 
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90 
+4 Begin 
38 i Ensure the message type for this entry is useful for 
3¢ } updating the summary information. 
36 Selectoneu .emb_bufCemb$w_lm_msgtyp) of 
€ 
98 1,2,3.4,6,7): 
99 Begin 
t's} Name_desc(dsc$a_pointer] = emb_bufLemb$t_lm_devnam] + 1 ; 
pees ROLLUP (emb_bufCemb$t_lm_devnam], 
060 name desc, . 
b604 emb_BufCemb$w_lm_unit], 2REF (+1), 
5 ZREF(-1) ,ZREFT-13) ; 
0606 End 0 
060 Tes ; 
09 we te 
nd ; - 
(Dev_summ_out): 
Begin 


a ee ee De et ee ee ed ed ed a bd 


PUSPISISIII 
BVLSSSLESRAV LS SSVSEALAN SS SHISAR AN “SSRIS AFA TISSELFALUNLS SES 


Display the device summary information (device rollup). 
DISPLAY_ROLLUP (.Lstlun) ; 
End ; 
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05 


CVolume_summ_out]: 
Begin 


: Be pa the volume summary information (volume Label information). 
! (Volume summary information is updated from the call to 

! "mnt qtonns disp. which in turn calls the appropriate routine for 
updating thé mount or dismount summary information). 


LABEL_OUT (.lstlun) ; 
End ; 


{Memory _summ_out]: 
Begin 


SS 
— 
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is updated in the ‘memorys.for' module.) 
MEMORY_DISPLAY (.lstlun) ; 
End ; 


CEntry_summ_out): 
Begin 


; Display the entry summary information. 
ENTRY_SUMMARY_ OUTPUT (.lstlun) ; 
ng ; 


CHisto_summ_out): 
Begin 


Display the Histogram summary information. 
PROCESSED_ENTRIES_HIST9_OUTPUT (.lstlun) ; 
nd; 


CALL_summ_out): 
Begin 


Output the all of the summary information. 
DISPLAY_ROLLUP (.lstlun) ; 

LABEL_OUT (.lstlun) ; 
MEMORY DISPLAY (.istlun) ; 
ENTRY Y_ OUTPUT (.lstlun); 

PROCESSED _ENTRIES_HISTO_OUTPUT (.lstlun) ; 
n . 
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3) 0665 3 

2g COtherwise): 
54 3 Return ; 
33 3 , 

35 71 me 

58 % Return ; 

59 7 End ; ! Routine 


i Display the memory summary information. (Memory summary information 
| 
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~TITLE ERFSUMMARY Summary dispatcher 
"IDENT \V04=000\ skies 
-PSECT SYECOM,NOEXE, SHR, GBL, OVR, PIC,2 


00000 TEMP_SYECOM: 
-BLKB 


00000 TEMP_EMB: 


4 
-PSECT EMB,NOEXE, SHR, GBL, OVR, PIC.2 
-BLKB 4 
-PSECT SOWNS,NOEXE, PIC,2 
00000000' 00000 EMB_BUF:. ADDRESS TEMP_EMB : 
00000000" 00004 SYECOM_BUF : 
.ADDRESS TEMP_SYECOM : 
00# 00008 NAME_DESC: 
-BYTE 03) $ 
02 00008 .BYTE 2 : 
0000C .BLKB 4 
-EXTRN DISPLAY_ROLLUP, ENTRY_SUMMARY_OUTPUT 
-EXTRN ENTRY_SOMMARY UPDATE 
-EXTRN LABEL-OUT, MEMORY_DISPLAY 
-EXTRN ROLLUP, PROCESSED_ENTRIES HISTO_UPDATE 
-EXTRN PROCESSED_ENTRIES-H!STO_OOTPUT 
-PSECT SCODE,NOWRT, PIC,2 
01FC 00000 ENTRY SUMMARY DISPATCHER, Save R2,R3,R4.R5,R6.R7.-; 0504 
58 000000006 99 9€ 00002 MOVAB ENTRY_SUMMARY_OUTPUT, R8 : 
57 000000006 00 9€ 00009 MOVAB MEMORY DISPLAY, R7 : 
26 00000006 00 9€ 90010 MOVAB UT, R6 : 
55 000000006 99 9E 0001 MOVAB ODISPLAY_ROLLUP, R5 ; 
54 90000006 9E OO1k MOVAB ROLLUP,~R4 : 
53 00000000' 99 9E 000 MOV NAME_DESC+4, R3 : 
3 C C2 0002C SUBL 12, SP : 
5 08 B¢ DO 0002F MOVL @FUNCTION, R2 ; 9527 
08 b} 0033 CHPL R2, #8 : 0529 
000000006 00 8 FB $0 CALLS #0, PROCESSED_ENTRIES_HISTO_UPDATE : 0534 
04 0003F RET : 037 
05 52 D1 4 40 1$: CMPL R2, #5 : 0537 
1 if 4 BNEQ 2$ : 
50 fa oO p 9 MOVL YECOM_BUF, RO : 0545 
1¢ AO OF 49 PUSHAB (RO) : 
19 Aad 9F 0004C¢ PUSHAB (RO) + 0544 
1B OA i 4f PUSHAB (RO) : 034 
1A AO OF é PUSHAB 26(RO) 3 054 
000000006 00 04 FB 3 CALLS #4, ENTRY_SUMMARY_UPDATE : 0337 
52 D1 R2, #3 > 0548 
38 13 0080 Re : 
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9 66 ORS Oe § 3s: ROVL EMB_BUF, RO ; 0555 oC 
Ri Bod Gee ee gee : § 
0060 8F 04 A 8 F CHP 4 (RO), #96 + 0556 86 
0062 = «&F 04 A 8 rt CHP W g(RO), #98 : 0557 88 
63 FOO 3 7F 4$: MOV 25cR0), NAME _DESC+4 + 0560 00 
.*. # F 3 PUSHAB 44(RO) 3 0564 00 
5 AO 9F 000 PUSHAB 46(RO) : 00: 
1 A 3 0 PUSHAB 1 (RO) : 0563 ss 
ee A 9f 00 ‘ PUSHAB NAME desc + 0562 00 
3—E AO OF 009 PUSHAB 62(R0) ; 00 
22 11 0009 BRB 6 3 0564 00 
0063 ««8F 06 =A 8} 0097 5$ CMPW 386s (RO), #99 3 0572 00 
1D 12 0009D BNEQ 7$ : 00 
63 41 AO YE 0009F MOVAB 65(RO), NAME_DESC+4 3 0575 00 
30 AO 9F OOOA3 PUSHAB 48(RO) ; 0581 00 
2C AO 9F 000A PUSHAB 44(RO) : 0580 00 
10 AE 01 ce OOA MNEGL #1, 16(SP) 3 0579 01 
10 AE 9F OOOAD PUSHAB 16(SP) : Bg 
2A AO 9F 0008 PUSHAB 42(RO) : 03. 
FC AS 9F 000B PUSHAB NAME DESC : 0577 03 
40 ad 9F 0008 PUSHAB 64(RO) : Py 
64 0 FB 9008 6$: CALLS #6, ROLLUP : 0581 3 
51 F4 A3 DO OO0BC 7$: OVL €MB_BUF, R1 : 0589 03 
0064 8F 04 Al B81 000C0 CMPW = s«& (RT), #100 ; 03 
79 12 990¢6 NEQ 17$ : 03: 
50 24 «Al 3 00¢ MOVZWL 36(R1), RO 3 0596 03: 
05 1 o00¢¢ EQ. ~—Ss«éBS : 0598 03: 
04 50 Bi 000CE CMPW 3S eRO, #4 ; 03 
08 18 00001 BLEQU§ 10$ ; 03 
06 50 81 000D3 8$: CMPW =sRO, #6 ; 03 
01 1€ 0000 BGEQU 9$ ; 03 
04 0000 ET ; 03 
07 50 81 00009 98: CMPW RO #7 F 05: 
62 1A 0000C BGTRU 17$ ; 03: 
63 15 Al 9E 900¢ 108: MOVAB 21(R1), NAME_DESC+4 3 0600 03 
08 AE 01 ce OE MNEGL #1, 8(SP) > 0605 03 
08 AE OF ES PUSHAB 8(§P) ; 03 
08 AE 01 CE O00E EGL #1, (SP) ; 03 
08 AE F ED PUSHAB 8(SP) : o3 
08 AE 01 00 OOOF OVL #1, &(SP) : 0604 
08 AE BF 000F4 PUSHAB (SP) 3 
1 Al OF F7 PUSHAB 18(R1) : 3 
FC AS) QF OOOFA PUSHAB NAME _DESC ; 0602 3 
14 Al OF F PUSHAB 20(RT) ; 3 
64 06 FB 001 CALLS #6, ROLLUP ; 9604 
04 001 RET ; 0589 
02 52 1 00104 11$: CMPL R3 #2 ; 0611 
07 12 00107 BNEQ 128 ; 
04 AC DD 001 PUSHL LSTLUN : 0616 3 
65 01 F 10€ CALLS #1, DISPLAY_ROLLUP : 3 
04 0010F RET ; 0527 H 
07 52 D1 00110 128 CMPL R2, #7 : 0619 


ee ’ 
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07 12 0011 BNEQ 13$ : 
04 AC 0D 0011 PUSHL LSTLUN 3 0627 
66 01 FB 0011 CALLS #1, LABEL_OUT : 
04 00118 RET : 9527 | 
06 53 D1 OO11C 138: CMPL R2 ae 3 0630 
0? 12 OO11F BNE 4=s-«148 : 
046 AC 0D 00121 PUSHL LSTLUN 3 0636 
67 01 FB 00124 CALLS #1, MEMORY_DISPLAY : 
04 00127 RET : 0527 
04 52 D1 00128 14$: CMPL Re #6 ; 0639 
07 12 00128 BNEG «15 : 
04 AC DD 001 PUSHL LSTLUN 3 0644 
68 01 FB 001 CALLS #1, ENTRY_SUMMARY_OUTPUT : 
04 001 RET ; 0527 
09 52 D1 00134 15$ CMPL R2, #9 3 0647 
05 12 4 7 BNEG ~=«:«16$ ; 
04 AC 0D 00139 PUSHL LSTLUN 3 0652 
1f (11 91 C BRB 18$ : 
01 52 01 001 ; 168: CMPL R2, #1 : 0655 
21 if 0141 17$:  BNEQ 19$ ; 
52 04 AC D 00143 MOVL LSTLUN, R2 3 0660 
52 DD 0014 PUSHL R2 : 
65 gi FB 00149 CALLS #1, DISPLAY_ROLLUP : 
2 oD 0014C PUSHL R2 : 0661 
66 91 FB OO14E CALLS #1, LABEL_OUT : 
2 DD 00151 PUSHL R2 + 0662 
67 gi FB 00153 CALLS #1, MEMORY_DISPLAY : 
52 DD 0136 PUSHL R2 7 0663 
68 oS. FB 0015 CALLS #1, ENTRY_SUMMARY_OUTPUT ; 
52 0D 00158 PUSHL R2 + 0664 
000000006 00 01 FB 60150 18$: CALLS #1, PROCESSED_ENTRIES_HISTO_OUTPUT : 
04 00164 19$: RET : 0673 
; Routine Size: 357 bytes, Routine Base: $CODE + 0000 
: 260 0674 1 
; 261 0675 1 End ' Module 
: 262 0676 O ELUDOM 
: Name Bytes Attributes 
3; ENB 4 NOVEC, WRT, RD ,NOEXE, SHR, GBL, REL, OVR, PIC,ALIGN(2) 
3 SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: SYECOM 4 NOVEC, WRT, RD ,NOEXE, SHR, GBL, REL, OVR, PIC,ALIGN(O) 
3 S$CODE 357 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
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; Library Statistics 
; coccece - Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; -$255S$DUA28: CSYSLIBILIB.L32;1 18619 42 0 1000 00:02.0 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ERF SUMM/OBJ=OBJ$:ERFSUMM MSRC$:ERF SUMM/UPDATE=(ENHS$: ERF SUMM) 
3 Size: 357 ode + 24 data bytes 
3; Run Time: 210.7 
; Elapsed Time: 724.9 
3 Lines/CPU Min: 776 
3; Lexemes/CPU-Min: 22134 
; Y Used: 138 pages 
3; Compilation Complete 
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